home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Utilities / Programming / MT2ToolKit 1.0b1 / MarkSour2 < prev    next >
Encoding:
Text File  |  1995-10-14  |  593 b   |  17 lines  |  [TEXT/MPS ]
  1. # --------------------------------------------------
  2. #    MT2ToolKit, version 1.0b1
  3. #    (C) Copyright by Michael Trofimov, 10/6/95.
  4. # --------------------------------------------------
  5. # MPW Shell script to (re)mark Pascal source code from Pascal menu
  6.  
  7. # Prevent script from aborting if a command returns a nonzero status code
  8. Set Exit 0
  9. Set theSour "{Active}"
  10. Close "{theSour}" -y
  11. unmark `Markers` "{theSour}" ≥ Dev:Null # remove pred. markers
  12.  
  13. #  mark the file:
  14. procnames "{theSour}" -m>tempMarc     # make new markers
  15. tempMarc                     # mark it
  16. delete -y tempMarc            # delete temp file
  17. Open "{theSour}"